﻿Public Class ClientAdd


    Private Sub ClientAdd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        loadsex()
        loadtype()
    End Sub

    Private Sub loadtype()
        cbotype.DisplayMember = "ClientTypeName"
        cbotype.ValueMember = "ClientTypeId"
        cbotype.DataSource = cmd.ExecuteDataTable("SELECT clientTypeId,ClientTypeName FROM ClientType")
    End Sub
    Private Sub loadsex()
        cbosex.DisplayMember = "SexName"
        cbosex.ValueMember = "SexId"
        cbosex.DataSource = cmd.ExecuteDataTable("SELECT SexId,SexName FROM SEX")
    End Sub

End Class